W tym przyk│adzie tabela Zam≤wienia jest u┐ywana do obliczenia │╣cznej warto£ci zrealizowanych zam≤wie± wys│anych do Wielkiej Brytanii.
W tym przyk│adzie wywo│ywana jest procedura WyliczPola, kt≤r╣ mo┐na znaleƒµ w przyk│adzie dotycz╣cym instrukcji SELECT.
Sub SumX()
Dim dbs As Database, rst As Recordset
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Oblicz │╣czn╣ warto£µ zrealizowanych zam≤wie±
' wys│anych do Wielkiej Brytanii.
Set rst = dbs.OpenRecordset("SELECT" _
& " Sum(CenaJednostkowa*Ilo£µ)" _
& " AS [ú╣czna sprzeda┐ w W. Brytanii]" _
& " FROM Zam≤wienia" _
& " INNER JOIN [Opisy zam≤wien] ON" _
& " Zam≤wienia.NrZam≤wienia = " _
& "[Opisy Zam≤wie±].NrZam≤wienia" _
& " WHERE (KrajOdbiorcy = 'UK');")
' Zape│nij obiekt Recordset.
rst.MoveLast
' Wywo│aj procedurΩ WyliczPola w celu
' wydrukowania zawarto£ci obiektu Recordset. Przeka┐ obiekt
' Recordset i wymagan╣ szeroko£µ pola.
WyliczPola rst, 12
dbs.Close
End Sub